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VAX-11 Bliss-32 V Page 

14-Sep-1984 DISKSVMSMASTER: ad BT she CLRKEY.BLI;1 
ZTITLE "EDTSCLRKEY = cancel a key definition’ 

MODULE EDTSCLRKE ition 


!' Cancel a key defin 
ile : CLRKEY.BLI Edit: JBS1005 


KEY ( 
pPENT = 'v04-000' a 
BEGIN 


LRA RRA AERA EAERAER EERE EAE REE AEE AEE RAAEEAEREREEREEAREEREEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
i ALL RIGHTS RESERVED. 


is THIS SOFTWARE i} FURNISHED ee A LICENSE AND MAY BE USED AND gd 


OOoQoooooooooooooooo 
Oe a et td et I QHOOOQOOOOO 


SOOOCOOSCOOSOSOSOOOOOOOOCOOOOOOOoOoOO 
DONAVESWN $$ OOONAULS WN “OO ONOULSWH— 


c 

: 4 

; 5 1 

: 6 1 

; 7 1 

5 8 1 + 
Ps 9 1 € 
3 10 1 * 
: 11 1 * 
a | 
+ ® 
: (614 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LiccN SE AND WITH THE * 
; 1 !* INCLUSION OF THE ABOVE taped NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 16 1 !® COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 
$ 17 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 13 3 : 3 TRANSFERRED. bd 
Ps .* + 
: 20 02 1 !® THE a tie IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 21 02 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $$ 8S : ie CORPORATION. * 
: Iw # 
; 24 024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $ Os : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. » 
3 i® ® 
: a 05 1 !® * 
H 28 02 1 LRA AERA RARER AERA 
; 0029 1! 

; 0030 1 

a 0031 1 !++ : 

: $$ 003 1 ' FACILITY: EDT == The DEC Standard Editor 

‘e 2 0033 1! 

; 34 0034 1 | ABSTRACT: 

> 0035 1! 

; -# 0036 1! Cancel a key definition 

; if 0037 1! 

; Hs sits 4 ! ENVIRONMENT: Runs at any access mode - AST reentrant 

: re re : AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 

: 42 0042 1 ' MODIFIED BY: 

x €3 0043 1! 

: «644 0044 1 | 1-001 - Original. DJS 18-FEB-1981. This module was created by 

s 65 0045 1! extrocsing routine EDTS$CAN_KDEF from module EDTCTR. 

; «646 0046 1! 1-002 - Regularize headers and fix file name. JBS 04-Mar-1981 

3; Of 0047 1 |! 1-003 - Deallocate virtual peanty for nove. Bétore cancelled. TMV 06-Aug-81 

:; 648 0048 1 ! 1-004 - Return a status code. S 18-May-1 

; | «649 0049 1} 1-005 - New implementation of defined hag a 13-Aug-1982 

i Ra 
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SELEREY 


AAACN 
FUN -OOONOUE Ww 


om 


QAUVIMVIIE SE LOOCCCCO 89 
WOOCOCOCOOOOOUMUU™ a= 4 
DEAR OC ODONONOUSw — 
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SCLRKEY = cancel a key definition 
arations 


at a tt ss 8 2 = = 2 = 2 Ss 


RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM’ ; 


FORWARD ROUTINE 
EDTSSCAN_KDEF ; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
LIBRARY "EDTSRC:KEYPADDEF’; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 


i 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
! In the routine 


:C 


32 .V 
R: CE 


st snes Page 2 
DT.SRCJCLRKEY.BLI;1 (2) 
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EDTSCLRKEY EDTSCLRKEY = cancel a key definition 1o~3e0~ 138 99:18:19 VAX-11 Bliss-32 V4.0-74 Page 3) 
v04-" EDTSSCAN_KDEF = cancel a key definition 14-Sep-1984 12:22:51 DISKSVMSMASTER: CEDT.SRCIJCLRKEY.BLI;1 (3) | 
; Hy 8638 ! ZSBTTL "EDTSSCAN_KDEF = cancel a key definition’ 
; 0660 1 GLOBAL ROUTINE EDTSSCAN_KDEF ( ' Cancel a key definition Mee 
; 4 bees : -: ! Number of the key whose definition to cancel | 
; ¢ 06635 1 
>; 494 0664 1 !++ 
; 32 Reg? ! : FUNCTIONAL DESCRIPTION: 
3 24 Oe? : Cancel a key definition,and deallocate virtual memory | 
: 99 0669 1 ! FORMAL PARAMETERS: 
; 100 0670 1! a 
: 12) pert ! KEY The number of the key whose definition to cancel 
: 108 0675 1 ! IMPLICIT INPUTS: 
3: 104 0674 1! 
; 105 0675 1! NONE 
; 106 0676 1! ; 
3; 107 0677 1 ! IMPLICIT OUTPUTS: : 
; 108 0678 1! 3 
: 109 0679 1! EDTS$A_TRN_TBL . 
; 110 0680 1! $ 
3 111 0681 1 ! ROUTINE VALUE: | ; 
: V6 0682 1! ; : 
3 11 0685 1! EDTS_KEYNOTDEF if the key cannot be defined, 1 if it can. 3 
> (114 0684 1! F 
> Fe 0685 1 ! SIDE EFFECTS: 
3; 1% 0686 1! | 
3 V7 0687 1! NONE | 
; #4118 0688 1! | 
3 119 0689 1 !-- 
: 120 0690 1 
: te1 0691 2 BEGIN 
; 1¢¢ 0692 2 
; ie 0693 2 EXTERNAL ROUTINE 
>; te 0694 2 EDTSSDEA_HEAP, 
; te 0695 2 EDTSSTST_BADK; 
> 126 0696 2 
: ter 0697 2 EXTERNAL ? 
; 138 Rees § EDTSSA_TRN_TBL : VECTOR; ! The keypad translation table 
; 1 0700 MESSAGES ((KEYNOTDEF)); 
: 43! 701 
; 132 70 CAL 
3: «133 0703 2 KEY_PTR : REF BLOCK C, BYTE) FIELD (KEY_DEF_FIELD) 
; Ht Boe § OLD_KEY_PTR : REF BLOCK C, BYTE) FIELD TKEY DEF _FIELD); 
3; «136 0706 2 IF EDTSSTST_BADK (.KEY) THEN RETURN (EDTS_KEYNOTDEF); 
s 137 0707 
; «138 0708 te , : 
; ib 4 aS ¢4 If the key was defined then deallocate memory before cancelling. 
3 «(141 0711 OLD_KEY_PTR = EDTSSA_TRN_TBL C.KEY MOD K_KPAD_HASHSIZ]; 
: a Orig KEY-PTR™= .OLD_KEY_PTR CREY_DEF_NEXT); 
3 «6144 0714 IF (.KEY_PTR EQLA 0) THEN RETURN (1); 


clang 
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a = a ss - 4 ss 4 
PUPPIES 
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; Routine Size: 


106 bytes, 


EDTSCLRKEY = cancel a key definition 
EDTSSCAN_KDEF = cancel a key definition 
0715 
8718 WHILE (.KEY 
971 BEGIN 
gfs OLD_KEY_PTR = .K 

71 KEY_PTR = .KEY_ 
8 0 

721 

07 ¢ 
gf END; 
$F é OLD 

L 

B78 EDTSSDEA_HEAP (ZREF T 
0727 RETURN (7); 
0728 1 : 


00 
5E 08 
06 AC 
000000006 00 01 
08 50 
50 000000006 8&F 
04 AC 01 
8E 000000C7 BF 
51 0000000060040 
50 61 
OF 
10 00 
OA 
51 50 
50 60 
EF 
1D 
61 60 
04 AE 50 
04 AE 
04 AE 06 AO 
04 AE 07 
04 AE 
000000006 00 02 
50 01 
Routine Base: _EDTSCODE + 


1494 1 
0750 1 !<BLF/PAGE> 
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18-Sep-1984 00:14: 
1228087138 99:33: 


EY_PTR; 
PTR CKEY_DEF _NEXT); 
IF (.KEY_PTR EQLA 0) THEN RETURN (1); 


&—0OF OV "OUNV 


vw NE & 
FMOWWWOO ONVIVI"S 


000 


EY_PTR CKEY_DEF_KEY] NEQ .KEY) DO 


18: 


2$: 


3$: 
4$: 


5$: 
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KEY PTR CKEY_DEF_NEXT] = .KEY PTR CKEY_DEF_NEXT); 
-KEY_PTR CKEY_DEF_LEN] + REY_DEF_OVERHEAD), %REF (.KEY_PTR)); 


1? VAX-11 Bliss=32 \'4.0-7 
1 DISKSVMSMASTER:CEDT.S 


! of routine EDTSSCAN_KDEF 


$ 

4 

SSDEA_HEAP, EDTSS$TST_BADK 
SSA_TRN_TBL, EDTS_KEYNOTDEF 


-EDTSCODE,NOWRT, SHR, PIC,2 
EDTSSCAN_KDEF, Save nothing 
#8, SP 


KEY 
#1, EDTSSTST_BADK 
#EOTS_KEYNOTDEF, RO 
#1. KEY, #0, -(SP) 


#199, (SP)+, RO, RO 
EDTS$$A_TRN_TBLCROJ, OLD_KEY_PTR 
(OLD_KEY_PTR), KEY_PTR 


#0. #16, 4(KEY_PTR), KEY 
KEY_PTR, OLD_KEY_PTR 
(KEV_PTR), KEY_PTR 
Y_PTR), (OLD_KEY_PTR) 
Prr, 4(sP) 
EY_PTR), 4¢SP) 

SP) 
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EDTSCLRKEY EDTSCLRKEY = cancel a key definition 1§- -Sep- 14:19 VAX-11 Bliss-32 V4.0-74 

ous 660 EDTSSCAN_KDEF = cancel a } a key definition 14- =tep =| 138 99: 2:22:51 DISKSVMSMASTER:(CE LOT SRCSCLRKEY.BLI:1 
; % 731 «1 EN ! of module EDTSCLRKEY 
3; 7 ¢ 1 
> 166 7 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
; EDTSCODE 106 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
RE ee See ee ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 1 0 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 ~$255$DUA28:CEDT.SRCIKEYPADDEF .L32;1 34 7 20 7 00:00.1 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LiS=LIS$:CLRKEY/OBJ=OBJ$:CLRKEY MSRC$:CLRKEY.BLI/UPDATE=(ENHS$:CLRKEY) 
; Size: 106 code + 0 data bytes 

Run Time: 00:11.5 


; Elapsed Time: 00:13.4 
3; Lines/CPU Min: 3824 

$ ,onenee/SPU-Aitas 12193 

; emery Used: 73 pages 

eo 3 


; Compilation Complete 
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